home *** CD-ROM | disk | FTP | other *** search
/ 593 Business Letters / 593 Business Letters.iso / Module1.bas < prev    next >
BASIC Source File  |  1999-05-01  |  187b  |  10 lines
  1. Attribute VB_Name = "Module1"
  2. Function app_path() As String
  3.  
  4.         x = App.Path
  5.         If Right$(x, 1) <> "\" Then x = x + "\"
  6.         app_path = UCase$(x)
  7.     
  8. End Function
  9.  
  10.